*IF MESSAGEBOX("Confirma Impresso   ",292,"Impresso") = 6
   
   SET PRINTER TO NAME 'generica'

   IF ! USED("TSCOMP3")
      USE TSCOMP3 IN 76 SHARED
   ENDIF

   SELECT TSCOMP3
   GO TOP IN TSCOMP3
   DO WHILE ! EOF("TSCOMP3")
   
      ??? SUBSTR(TSCOMP3.IMPRESS,1,40) + CHR(13) + CHR(10)
      
      SKIP IN TSCOMP3
      LOOP

   ENDDO

   ??? CHR(10) + CHR(13)
   ??? CHR(27) + CHR(109)

   SET PRINTER TO NAME 'generica'

*ENDIF